home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n3.d64 / monster story (.txt) < prev    next >
Commodore BASIC  |  2007-02-25  |  13KB  |  393 lines
  1. 1 REM**PERSONALIZED BEDTIME STORY**
  2. 2 REM**RICK ANDING   ATLANTA**
  3. 3 GOSUB 9000
  4. 4 POKE 53280,6:POKE 53281,6:POKE 646,3
  5. 5 FOR X=1 TO 1000:NEXT
  6. 6 PRINT
  7. 8 INPUT "IS THE STORY CHILD MALE OR FEMALE";SX$
  8. 10 INPUT "FIRST NAME";NA$
  9. 20 INPUT "LAST NAME";NB$
  10. 30 INPUT "STREET NUMBER";S
  11. 40 INPUT "STREET NAME";SN$
  12. 50 INPUT "CITY";CI$
  13. 60 INPUT "STATE";ST$
  14. 70 INPUT "NUMBER OF BROTHERS";B
  15. 75 IF B=0 GOTO 120
  16. 80 FOR X=1 TO B
  17. 85 INPUT"ONE BROTHER'S FIRST NAME";BN$(X)
  18. 90 NEXT X
  19. 100 INPUT "NUMBER OF SISTERS";Z
  20. 105 IF Z=0 GOTO 125
  21. 110 FOR X=1 TO Z
  22. 115 INPUT"ONE SISTER'S FIRST NAME";ZN$(X)
  23. 120 NEXT X
  24. 125 INPUT "NUMBER OF DOG OR CAT PETS";P
  25. 130 IF P=0 GOTO 170
  26. 140 FOR X=1 TO P
  27. 150 INPUT "ONE PET'S NAME";PN$(X)
  28. 160 NEXT X
  29. 170 INPUT "#1 FRIEND/PLAYMATE'S WHOLE NAME";FA$
  30. 175 INPUT"IS FRIEND #1 MALE OR FEMALE";AG$
  31. 180 INPUT "#2 FRIEND/PLAYMATE'S WHOLE NAME";FB$
  32. 185 INPUT"IS FRIEND #2 MALE OR FEMALE";BG$
  33. 190 INPUT "#3 FRIEND/PLAYMATE'S WHOLE NAME";FC$
  34. 195 INPUT"IS FRIEND #3 MALE OR FEMALE";CG$
  35. 198 INPUT "STORY CHILD'S MOST LOVED FOOD";LF$
  36. 200 INPUT "STORY CHILD'S MOST HATED FOOD";HF$
  37. 205 FOR X=1 TO 2000:NEXT X:PRINT"[147]"
  38. 215 PRINT
  39. 220 PRINT "CHILD'S GENDER  ";SX$
  40. 225 PRINT "FIRST NAME      ";NA$
  41. 230 PRINT "LAST NAME       ";NB$
  42. 235 PRINT "STREET NUMBER  ";S
  43. 240 PRINT "STREET NAME     ";SN$
  44. 245 PRINT "CITY            ";CI$
  45. 250 PRINT "STATE           ";ST$
  46. 260 IF B=0 GOTO 280
  47. 265 FOR X=1 TO B
  48. 270 PRINT "BROTHER'S NAME  ";BN$(X)
  49. 275 NEXT X
  50. 280 IF Z=0 GOTO 300
  51. 285 FOR X=1 TO Z
  52. 290 PRINT "SISTER'S NAME   ";ZN$(X)
  53. 295 NEXT X
  54. 300 IF P=0 GOTO 340
  55. 310 FOR X=1 TO P
  56. 320 PRINT "PET'S NAME      ";PN$(X)
  57. 330 NEXT X
  58. 340 PRINT "FRIEND'S NAME   ";FA$
  59. 345 PRINT "       GENDER   ";AG$
  60. 350 PRINT "FRIEND'S NAME   ";FB$
  61. 355 PRINT "       GENDER   ";BG$
  62. 360 PRINT "FRIEND'S NAME   ";FC$
  63. 365 PRINT "       GENDER   ";CG$
  64. 370 PRINT "MOST LOVED FOOD ";LF$
  65. 375 PRINT "MOST HATED FOOD ";HF$
  66. 378 PRINT:INPUT"IS INFORMATION CORRECT";A$
  67. 380 IF A$="NO" OR A$="N" GOTO 5
  68. 390 FOR X=1 TO 1000:NEXT:PRINT
  69. 400 IF SX$="MALE" OR SX$="M" THEN G=1
  70. 410 IF SX$="FEMALE" OR SX$="F" THEN G=2
  71. 412 RF$(1)=" KING "
  72. 414 RF$(2)=" QUEEN "
  73. 416 HE$(1)="HE"
  74. 418 HE$(2)="SHE"
  75. 420 HM$(1)="HIM"
  76. 422 HM$(2)="HER"
  77. 424 HS$(1)="HIS"
  78. 426 HS$(2)="HER"
  79. 430 IF AG$="MALE" OR SX$="M" THEN H=1
  80. 432 IF AG$="FEMALE" OR SX$="F" THEN H=2
  81. 434 IF BG$="MALE" OR SX$="M" THEN I=1
  82. 436 IF BG$="FEMALE" OR SX$="F" THEN I=2
  83. 438 IF CG$="MALE" OR SX$="M" THEN J=1
  84. 440 IF CG$="FEMALE" OR SX$="F" THEN J=2
  85. 442 AA$(1)=" SIR "
  86. 444 AA$(2)=" LADY "
  87. 450 IF P=0 OR P=1 THEN N=1
  88. 455 IF P>1 THEN N=2
  89. 460 MN$(1)="MONSTER"
  90. 462 MN$(2)="MONSTERS"
  91. 464 MH$(1)="HE"
  92. 466 MH$(2)="THEY"
  93. 468 MP$(1)="HIS"
  94. 470 MP$(2)="THEIR"
  95. 472 IF P=0 THEN PN$(1)="GREENY MEENY"
  96. 474 IF P=>2 THEN MI$="WE"
  97. 476 IF P=<1 THEN MI$="I"
  98. 482 PRINT "AT THIS POINT MAKE SURE YOUR PRINTER IS TURNED ON ";
  99. 484 PRINT " AND PROPERLY HOOKED UP TO THECOMPUTER
  100. 486 [129] X[178]1 [164] 4000:[130]
  101. 488 [153]:[153]:[153]:[153]:[153]
  102. 490 [153]"PRESS THE SPACE BAR TO BEGIN PRINTING   THE STORY"
  103. 492 [161] RN$
  104. 494 [139] RN$[178]"" [167] [137] 492
  105. 496 [139] RN$[179][177][199](32) [167] [137] 492
  106. 498 [159]3,4
  107. 500 [143]**** STORY LINE****
  108. 501 [152]3,"                             A MONSTER STORY!"
  109. 502 [152]3,
  110. 505 [152]3,"ONCE UPON A TIME IN THE LAND OF ";ST$;", THERE WAS A TINY KINGDOM";
  111. 508 [152]3," CALLED ";
  112. 510 [152]3,CI$;", WHICH WAS RULED BY A KIND LITTLE";RF$(G);"NAMED ";NA$;
  113. 512 [152]3," ";NB$;"."
  114. 514 [141] 7000
  115. 515 [152]3,"THE ";NB$;" ROYAL FAMILY HAD RULED ";CI$;" FOR 500 ";
  116. 520 [152]3,"YEARS, AND THE PEOPLE LOVED THE ";RF$(G);"AND THE OTHER MEMBERS ";
  117. 525 [152]3,"OF THE ROYAL FAMILY, ";:[139] B[178]0 [137] 535
  118. 530 [129] X[178]1 [164] B:[152]3,"PRINCE ";BN$(X);", ";:[130] X
  119. 535 [139] Z[178]0 [137] 545
  120. 540 [129] X[178]1 [164] Z:[152]3,"PRINCESS ";ZN$(X);", ";:[130] X
  121. 545 [152]3,"THE COURT JESTER, ";FC$;", AND EVERYONE WHO LIVED IN THE CASTLE ";
  122. 550 [152]3,"ON ";SN$;". BUT AS KIND AS THE ";RF$(G);"WAS, ";HE$(G);" COULDNT";
  123. 555 [152]3," RID THE KINGDOM OF A PROBLEM IT HAD BEEN HAVING FOR MANY YEARS. "
  124. 560 [152]3,
  125. 565 [152]3,"YOU SEE, ";CI$;" WAS FAMOUS FOR MAKING THE BEST ";LF$;" IN THE ";
  126. 570 [152]3,"WORLD, AND ALL OF ";RN$(G);NA$;"'S SUBJECTS LOVED EATING ";LF$;
  127. 571 [152]3,", BUT IN THE WOODS AT THE END OF ";SN$;", LIVED ";
  128. 572 [139] P[177]1 [137] 580
  129. 573 [139] P[178]1 [137] 578
  130. 574 [139] P[177]1 [137] 580
  131. 575 [152]3,"A GROUCHY GREEN MONSTER NAMED 'GREENY MEENY'. ":[137] 595
  132. 578 [152]3,"A GROUCHY GREEN MONSTER ";:[137] 588
  133. 580 [152]3,"TWO GROUCHY GREEN MONSTERS ";:[137] 590
  134. 588 [152]3,"NAMED ";PN$(1)". ":[137] 595
  135. 590 [152]3,"NAMED ";PN$(1);" AND ";PN$(2)". "
  136. 595 [141] 8000
  137. 598 [152]3,"THE ";MN$(N);" HATED ";LF$;" AND LOVED ";HF$;", SO ";
  138. 600 [152]3,"EVEN THOUGH THE ";MN$(N);" NEVER HURT ANYONE, ";MH$(N); " CAUGHT ";
  139. 610 [152]3,"ALL THE PEOPLE WHO WALKED BY ";MP$(N);" WOODS ON ";SN$;", AND";
  140. 615 [152]3," FORCED THEM TO EAT A DINNER OF ";HF$;", WHICH WAS THE MONSTER'S ";
  141. 620 [152]3,"FAVORITE FOOD!"
  142. 622 [152]3,
  143. 625 [152]3,"THE PEOPLE OF THE KINGDOM OF ";CI$;" CAME TO THE ";RF$(G);" AND ";
  144. 630 [152]3,"SAID, 'YOU ARE OUR ";RF$(G);", PLEASE HELP US TO GET RID OF THE ";
  145. 635 [152]3,"GREEN ";MN$(N);" AT THE END OF ";SN$;" WHO KEEP";
  146. 636 [139] P[177]1 [137] 638
  147. 637 [152]3,"S";
  148. 638 [152]3," MAKING US EAT ";
  149. 640 [152]3,HF$;", WHEN ALL WE REALLY WANT TO EAT IS ";LF$;"!"
  150. 650 [141] 6000
  151. 660 [152]3,RF$(G);NA$;" CALLED ALL THE BRAVE KNIGHTS AND MAIDENS ";
  152. 665 [152]3,"OF THE KINGDOM TO THE CASTLE FOR A MEETING TO TALK ABOUT ";
  153. 670 [152]3,"THE MONSTER PROBLEM IN THE KINGDOM OF ";CI$;"."
  154. 673 [152]3,
  155. 675 [152]3,AA$(H);FA$;" SAID,  LET'S GO BATTLE THE BAD ";MN$(N);"! ";
  156. 680 [152]3,"  YES, SAID ";AA$(I);FB$;",  WE SHOULD DRIVE THE ";MN$(N);" FROM ";
  157. 685 [152]3,"THE KINGDOM!"
  158. 688 [152]3,
  159. 690 [152]3,"BUT THE WISE LITTLE";RF$(G);NA$;" SAID,  LET ME SEE WHAT ";
  160. 695 [152]3,"MY FRIEND ";FC$;", THE COURT JESTER HAS TO SAY!  ";FC$;", WHO ";
  161. 700 [152]3,"WAS VERY SMART, SAID,  I THINK WE SHOULD GO TO THE WOODS AND ";
  162. 705 [152]3,"TALK TO THE GREEN ";MN$(N);" AND SEE WHY THEY KEEP MAKING THE ";
  163. 710 [152]3,"PEOPLE OF ";CI$;" EAT ";HF$;" WHEN WE ONLY WANT ";LF$;". ";
  164. 715 [152]3," ";RN$(G);NA$;" WAS SMART, LIKE ALL THE ";NB$;" FAMILY.  ";HE$(G);
  165. 720 [152]3," LIKED WHAT ";FC$;" HAD SAID."
  166. 722 [152]3,
  167. 724 [152]3,"SO THE ROYAL FAMILY AND THE KNIGHTS ";
  168. 725 [152]3,"AND MAIDENS SET OFF ON A TRIP TO THE WOODS ON ";SN$;" TO FIND ";
  169. 730 [152]3," THE GREEN ";MN$(N);" AND SEE IF ";MH$(N);" WOULD MEET WITH ";
  170. 735 [152]3,RF$(G);NA$;" AND TALK."
  171. 740 [152]3,"AS THE ";RF$(G);" WALKED THROUGH THE WOODS ON ";SN$;", ";HE$(G);
  172. 750 [152]3," WAS AFRAID OF WHAT WOULD HAPPEN WHEN HE FINALLY REACHED THE ";
  173. 755 [152]3,"GREEN MONSTER'S CAVE!  ";
  174. 760 [152]3,"AS THE GROUP WALKED QUIETLY THROUGH THE WOODS THEY FINALLY CAME ";
  175. 765 [152]3,"TO A MAILBOX THAT READ:"
  176. 766 [152]3,
  177. 767 [152]3,
  178. 770 [139] P[178]1 [137] 800
  179. 775 [139] P[177]1 [137] 820
  180. 780 [152]3,"                     GREENY MEENY'S CAVE' "
  181. 790 [137] 830
  182. 800 [152]3,"                     ";PN$(1);"'S HOUSE"
  183. 810 [137] 830
  184. 820 [152]3,"                     ";PN$(1);" AND ";PN$(2);"'S HOUSE"
  185. 830 [152]3,"                    ";S;" ";SN$
  186. 840 [152]3,
  187. 842 [152]3,
  188. 850 [152]3," AND THE MAILBOX SAT BESIDE A LARGE DARK CAVE.... ";RF$(G);NA$;
  189. 855 [152]3," LOOKED INSIDE THE CAVE BUT ALL ";HE$(G);" COULD SEE WAS TWO ";
  190. 860 [152]3,"BRIGHT LITTLE EYES STARING BACK AT THEM FROM THE DARKNESS!"
  191. 870 [141] 5000
  192. 880 [152]3,"THE ";RF$(G);" SAID  'WHO WANTS TO GO IN AND BRING OUT THE ";
  193. 885 [152]3,MN$(N);" TO TALK TO US?"
  194. 890 [152]3," NOT ME!, SAID";AA$(H);FA$;",  NOT FOR ALL THE ";LF$;" IN ";ST$;"!"
  195. 895 [152]3,"ME EITHER!, SAID";AA$(I);FB$;",  I'M TOO SCARED!"
  196. 900 [152]3,
  197. 905 [152]3,"THE ";RF$(G);" STOOD NEAR THE CAVE DOOR AND CALLED...OH, MISTER ";
  198. 910 [152]3,"MON-STER........? "
  199. 912 [152]3,
  200. 915 [152]3,"WHOS OUT THERE?, YELLED ";
  201. 918 [139] P[177]1 [137] 928
  202. 924 [152]3,PN$(1);
  203. 925 [152]3,"!  'DID YOU COME FOR MORE ";HF$;
  204. 926 [152]3,"?  HE ASKED.."
  205. 927 [137] 930
  206. 928 [152]3,PN$(1);"!"
  207. 929 [152]3,"DID YOU COME FOR MORE ";HF$;"?,  YELLED ";PN$(2);"!"
  208. 930 [152]3,
  209. 935 [152]3,"NO, SAID ";RF$(G);NA$;", WE HAVE COME TO FIND OUT WHY YOU ARE SO";
  210. 940 [152]3," MEAN TO MY SUBJECTS AND KEEP MAKING THEM EAT THAT AWFUL ";HF$;"!"
  211. 945 [152]3,
  212. 950 [152]3,"WE MAY BE GREEN, BUT WE'RE NOT REALLY MEAN, SAID ";PN$(1);
  213. 955 [152]3,".  WE MONSTERS LOVE ";HF$;" AND THOUGHT THAT EVERYBODY LOVED ";
  214. 960 [152]3,HF$;", SO ";MI$;" THOUGHT PEOPLE WOULD LIKE US BETTER IF ";MI$;
  215. 965 [152]3," GAVE A SERVING OF ";HF$;" TO ";
  216. 970 [152]3,"EVERYONE IN ";CI$;"!"
  217. 975 [152]3,"BESIDES, SAID ";
  218. 976 [139] P[177]1 [137] 980
  219. 978 [152]3,PN$(1);
  220. 979 [137] 985
  221. 980 [152]3,PN$(2);
  222. 985 [152]3,", ";MI$;" HEAR THAT YOU HUMANS ARE SO MEAN YOU MAKE PEOPLE EAT ";
  223. 990 [152]3,LF$;"!,  YUK!"
  224. 995 [152]3,
  225. 1000 [152]3,RF$(G);NA$;" JUST LAUGHED, AND SAID  'WELL, THE PEOPLE IN MY ";
  226. 1010 [152]3,"KINGDOM LOVE ";LF$;", SO WE AREN'T REALLY MEAN EITHER.  YOU JUST";
  227. 1020 [152]3," MISUNDERSTOOD US, LIKE WE MISUNDERSTOOD YOU!"
  228. 1030 [152]3,
  229. 1035 [152]3,"LATER THAT DAY, ";
  230. 1040 [152]3,"THE PEOPLE OF THE KINGDOM OF ";CI$;" GOT TOGEATHER WITH THE ";
  231. 1045 [152]3,"MONSTERS THAT LIVED IN THE WOODS ON ";SN$;", AND THEY ALL HAD A ";
  232. 1050 [152]3,"GRAND FEAST, WHERE EVERYONE GOT TO KNOW EACH OTHER BETTER."
  233. 1052 [152]3,
  234. 1055 [152]3,"EVERYONE ATE WHAT THEY LIKED BEST, AND";RF$(G);NA$", THE ";
  235. 1058 [152]3,"PEOPLE OF ";
  236. 1060 [152]3,CI$;" AND THE FRIENDLY GREEN MONSTERS WHO LIVED IN THE WOODS ON ";
  237. 1070 [152]3,SN$;" ALL BECAME GOOD FRIENDS AND LIVED HAPPILY, EVER AFTER!"
  238. 4000 [152]3,
  239. 4010 [152]3,
  240. 4020 [152]3,"                           +(null)SQR(null)SQR(null)SGN           (null)LENLENRIGHT$  "
  241. 4030 [152]3,"                           +ANDANDANDANDANDSGN           CHR$(null)(null)LEFT$  "
  242. 4040 [152]3,"                           (null)(null)LENLENLENRIGHT$(null)          (null)CHR$LEFT$CHR$LEFT$(null) "
  243. 4050 [152]3,"                           SGNCHR$(null) (null)LEFT$+          (null)CHR$/EXPLEFT$SQR "
  244. 4060 [152]3,"                          (null) CHR$ (null) LEFT$ (null)          CHR$MID$(null)LEFT$  "
  245. 4070 [152]3,"                          USRUSR(null)MID$ASC(null)(null)USRUSR          MID$ASCASC(null)  "
  246. 4080 [152]3,"                          (null)  (null)AND(null)  (null)         (null)    (null)  "
  247. 4090 [152]3,"                         (null)         (null)       (null)      (null)   "
  248. 4100 [152]3,"                        (null)  ANDANDANDANDAND    (null)     (null) ANDANDANDANDAND  (null)  "
  249. 4110 [152]3,"                       (null)   (null)   (null)     (null)   (null)  (null)   (null)   (null)  "
  250. 4120 [152]3, "                    FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  251. 4130 [152]3,
  252. 4140 [152]3,"                          SERVE ME THE    SERVE ME THE"
  253. 4150 [152]3,"                           ";LF$;"!        ";HF$"!"
  254. 4160 [152]3,
  255. 4170 [152]3,
  256. 4180 [152]3,
  257. 4190 [152]3,
  258. 4200 [128]
  259. 5000 [152]3,
  260. 5010 [152]3,
  261. 5020 [152]3,"                            SPC(SPC(SPC(SPC(SPC(SPC(  "
  262. 5030 [152]3,"                        SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    "
  263. 5040 [152]3,"                     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(   "
  264. 5060 [152]3,"                    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( "
  265. 5070 [152]3,"                  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( "
  266. 5080 [152]3,"                SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  267. 5090 [152]3,"              SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  268. 5100 [152]3,"              SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(         SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  269. 5110 [152]3,"           SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    (null)(null)     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  270. 5120 [152]3,"        SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(             SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  271. 5130 [152]3,"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(                SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  272. 5140 [152]3,
  273. 5150 [152]3,
  274. 5160 [142]
  275. 6000 [152]3,
  276. 6010 [152]3,
  277. 6020 [152]3,"            EAT YOUR ";HF$;"!"
  278. 6030 [152]3,
  279. 6040 [152]3,"                                              +          YUK!"
  280. 6050 [152]3,"                                              THEN  "
  281. 6060 [152]3,"                             ANDANDANDANDANDANDAND          THEN  "
  282. 6070 [152]3,"                             (null)     (null)          +  "
  283. 6080 [152]3,"                         SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(      +  "
  284. 6090 [152]3,"                          SGN           +       +  "
  285. 6100 [152]3,"                          SGN           +  (null)USRUSRUSRUSR(null)  "
  286. 6110 [152]3,"                          SGN           +  SGN    +  "
  287. 6120 [152]3,"                          SGN           +  SGN    +  "
  288. 6130 [152]3,"                          SGN           +  SGN    +  "
  289. 6140 [152]3,
  290. 6150 [152]3,
  291. 6160 [142]
  292. 7000 [152]3,
  293. 7010 [152]3,
  294. 7020 [152]3,"                      THENSTEP THENSINSINTHENSPC(          THENSTEP THENSINSINTHENSPC( "
  295. 7030 [152]3,"                      THEN  THEN  THEN           THEN  THEN  THEN  "
  296. 7040 [152]3,"                      (null)(null)AND(null)(null)AND(null)(null)          (null)(null)AND(null)(null)AND(null)(null)   "
  297. 7050 [152]3,"                      SGN      +          SGN      + "
  298. 7060 [152]3,"                      SGN  (null)(null)  +ANDANDANDANDANDANDANDANDANDANDSGN  (null)(null)  + "
  299. 7070 [152]3,"                      SGN  (null)SQR  THEN          FN  (null)SQR  + "
  300. 7080 [152]3,"                      SGN      THEN          FN      + "
  301. 7090 [152]3,"                      SGN  (null)(null)  THEN          FN  (null)(null)  + "
  302. 7100 [152]3,"                      SGN  (null)SQR  THEN          FN  (null)SQR  + "
  303. 7110 [152]3,"                      SGN      THEN          FN      + "
  304. 7120 [152]3,"                      SGN      THEN    (null)(null)    FN      + "
  305. 7130 [152]3,"                      SGN      THEN    SGN+    FN      + "
  306. 7140 [152]3,"                      SGN      THEN    SGN+    FN      + "
  307. 7150 [152]3,"                      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( "
  308. 7160 [152]3,
  309. 7170 [152]3,
  310. 7180 [142]
  311. 7999 [128]
  312. 8000 [152]3,
  313. 8010 [152]3,
  314. 8020 [152]3,"                                 (null)LENLENRIGHT$  "
  315. 8030 [152]3,"                                 CHR$(null)(null)LEFT$  "
  316. 8040 [152]3,"                                (null)CHR$LEFT$CHR$LEFT$(null) "
  317. 8050 [152]3,"                                (null)CHR$/EXPLEFT$SQR "
  318. 8060 [152]3,"                                 CHR$POSPOSLEFT$  "
  319. 8070 [152]3,"                                 MID$ASCASC(null)  "
  320. 8080 [152]3,
  321. 8090 [152]3,
  322. 8100 [142]
  323. 9000 [151] 646,6
  324. 9001 [153]"LOAD":[151] 53280,7:[151] 53281,7
  325. 9002 [129] X[178]1 [164] 1000:[130]
  326. 9003 [143]*                 LINE RIGHT *
  327. 9005 [129] X[178]1 [164] 39
  328. 9010 [153]"SIN";
  329. 9015 [129] Y[178]1 [164] 10:[130] Y
  330. 9020 [130]
  331. 9028 [143]*                  LINE DOWN *
  332. 9030 [129] X[178]1 [164] 22
  333. 9040 [153] [163]40)"CMDCMDSIN"
  334. 9050 [129] Y[178]1 [164] 10:[130] Y
  335. 9060 [130] X
  336. 9068 [143]*                  LINE LEFT *
  337. 9070 [129] X[178]1 [164] 39
  338. 9080 [153]"CMDCMDSIN";
  339. 9090 [129] Y[178]1 [164] 10:[130] Y
  340. 9095 [130] X
  341. 9096 [153]"CMDSINCMD";
  342. 9098 [143]*                    LINE UP *
  343. 9100 [129] X[178]1 [164] 21
  344. 9110 [153] "ONSINON"
  345. 9120 [129] Y[178]1 [164] 10: [130] Y
  346. 9130 [130] X
  347. 9140 [129] D [178]1 [164] 350:[130]
  348. 9160 [153] [163]204)"SIN";
  349. 9170 [129] X[178]1 [164] 28
  350. 9175 [153] "SIN";
  351. 9180 [129] Y[178]1 [164] 10:[130] Y
  352. 9190 [130] X
  353. 9195 [153]"SIN"
  354. 9200 [153] [163]33)"SIN"
  355. 9210 [153] [163]33)"SIN"
  356. 9220 [153] [163]33)"SIN"
  357. 9230 [153] [163]33)"SIN";
  358. 9240 [129] X[178]1 [164] 30
  359. 9250 [153]"CMDSINCMD";
  360. 9255 [129] Y[178]1 [164] 10: [130] Y
  361. 9260 [130] X
  362. 9270 [129] X[178]1 [164] 3
  363. 9280 [153] "ONSINCMD";
  364. 9290 [129] Y[178]1 [164] 10:[130]
  365. 9300 [130] X
  366. 9305 [129] X[178]1 [164] 350:[130]
  367. 9310 [153] [163]46)" ANDING'S NOODLE PRESENTS"
  368. 9315 [129] X[178]1 [164] 1000:[130]
  369. 9320 [153] [163]252)" "
  370. 9325 [131] "M","O","N","S","T","E","R"," ","S","T","O","R","Y"
  371. 9330 [153] [163]12)"*CMD";
  372. 9335 [129] J[178]1 [164] 13
  373. 9340 [129] X[178]1 [164] 12
  374. 9350 [153]" *CMD";
  375. 9360 [129] Y[178]1 [164] 4:[130] Y
  376. 9370 [130] X
  377. 9375 [153]"CMD* CMD";
  378. 9380 [129] X[178]1 [164] 11
  379. 9390 [153]"CMDCMD* CMD";
  380. 9400 [129] Y[178]1 [164] 4:[130] Y
  381. 9410 [130] X
  382. 9415 [135] A$
  383. 9416 [153]"CMDON";A$;:[153]"";
  384. 9420 [130] J
  385. 9425 [129] Y[178]1 [164] 200:[130]
  386. 9430 [153] [163]58)"*":[129] Y[178]1 [164] 200:[130]
  387. 9440 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  388. 9450 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  389. 9460 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  390. 9470 [153] [163]18)"*":[129] Y[178]1 [164] 2400:[130]
  391. 9486 [153]"LOAD"
  392. 9490 [142]
  393.